Napisati program koji se formira niz X duzine n tako da je vrednost elemenata
jednaka kvadratu njegovog polozaja u nizu.

Sub zad4()
Dim x(100) As Long, n As Long, i As Long
n = InputBox("duzina niza")
For i = 1 To n
x(i) = i ^ 2
Next
Open "Kvadrati.txt" For Output As #1
For i = 1 To n
Print #1, x(i)
Next
Close #1
End Sub
